﻿Module Module1
  Sub Main()

    Dim nl As String = Environment.NewLine
    Dim stringa As String = "stringhe e " & _
        "sottostringhe"
    stringa = stringa.Replace("sottostringhe", _
        "acciughe")
    stringa = stringa.Replace("st", "a")
    Console.WriteLine("stringhe e " & _
        "sottostringhe => " & stringa)
    Console.ReadLine()

  End Sub
End Module
